{
Author:  Prof1983 prof1983@yandex.ru
Created: 22.03.2009
LastMod: 22.03.2009
}
unit AUIclDialogWindow;

interface

uses
  ComCtrls, Forms,
  ABase, AUI, AUIcl, AUIclWindow;

type
  TAUIDialogWindow = class(TAUIWindow, IAUIDialogWindow)
  protected // IAUIDialogWindow
    function GetButtonsBox: IAUIBox;
  public
    class function NewDialogWindow(UI: IAUIcl; CreateToolBar: ABoolean): TAUIDialogWindow;
  end;

implementation

{ TAUIDialogWindow }

function TAUIDialogWindow.GetButtonsBox: IAUIBox;
begin
  Result := nil;
  // ...
end;

class function TAUIDialogWindow.NewDialogWindow(UI: IAUIcl; CreateToolBar: ABoolean): TAUIDialogWindow;
var
  Form: TForm;
  ToolBar: TToolBar;
begin
  Form := TForm.Create(nil);
  if CreateToolBar then
    ToolBar := TToolBar.Create(Form)
  else
    ToolBar := nil;
  Result := TAUIDialogWindow.Create(UI, Form, ToolBar, nil);
end;

end.
